home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00831_SU-IN fi 1.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  1.0 KB  |  32 lines
  1. on exitFrame
  2.   global g1erSprNav, exitFrame, exitFrame, g1erSprLoc, gMaxBoutons, gEtudAct, gEtudPrec, gEtatEtud, gSujet0, gPartie, gTraduit, gLocLabel, gRetour, gLabel, gCDpath, gCodEnv, gTextEnvL, gVersion
  3.   BigPurge()
  4.   set gMaxBoutons to 24
  5.   set gEtudPrec to gEtudAct
  6.   set gEtudAct to "FI"
  7.   set gLocLabel to "SU:RN fi"
  8.   set gLabel to gRetour
  9.   repeat with i = g1erSprLoc to gMaxBoutons
  10.     set the visible of sprite i to 0
  11.   end repeat
  12.   set the visible of sprite 2 to 1
  13.   set the visible of sprite 3 to 0
  14.   set the visible of sprite 4 to 0
  15.   set the visible of sprite 46 to 0
  16.   set the visible of sprite 47 to 0
  17.   if gEtudPrec <> "DX" then
  18.     set monNumEnv to getPos(gCodEnv, gEtatEtud)
  19.   else
  20.     set monNumEnv to gEtatEtud
  21.     set gEtatEtud to getAt(gCodEnv, monNumEnv)
  22.   end if
  23.   gScopeFi(Restore)
  24.   gScopeFi(visible, 0)
  25.   gScopeFi(Box, 20, 50, 430, 460)
  26.   set monTxt to getAt(gTextEnvL, monNumEnv)
  27.   if the number of lines in monTxt = 1 then
  28.     gBoutons(habille, g1erSprLoc, "VIDE")
  29.   end if
  30.   set the text of cast "TXT ENV" to line 1 of monTxt
  31. end
  32.